Browse Source

Part of the fix for main.#2.

Copying of created namcouple file is now done by
python module create_namcouple.py.
3-reduce-debug-output
Sven Karsten 2 years ago
parent
commit
9fbf0872e4
  1. 17
      src/flux_calculator_create_namcouple.F90

17
src/flux_calculator_create_namcouple.F90

@ -138,22 +138,7 @@ MODULE flux_calculator_create_namcouple
ENDDO
CLOSE(w_namcouple)
CALL SYSTEM("cp "//namcouple_filename//" ../"//TRIM(name_atmos_model)//"/")
WRITE(w_unit,*) "cp "//namcouple_filename//" ../"//TRIM(name_atmos_model)//"/"
! IF(sys_status /= 0) THEN
! WRITE(w_unit,*) "cp "//namcouple_filename//" ../"//name_atmos_model//"/"
! ENDIF
DO i = 1, MAX_BOTTOM_MODELS
IF (name_bottom_model(i) /= '') THEN
CALL SYSTEM("cp "//namcouple_filename//" ../"//TRIM(name_bottom_model(i))//"/")
WRITE(w_unit,*) "cp "//namcouple_filename//" ../"//TRIM(name_bottom_model(i))//"/"
! IF(sys_status /= 0) THEN
! WRITE(w_unit,*) "cp "//namcouple_filename//" ../"//name_bottom_model(i)//"/"
! ENDIF
ENDIF
ENDDO
END SUBROUTINE create_namcouple
END MODULE flux_calculator_create_namcouple
Loading…
Cancel
Save