Changeset 12254 for NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC/stpctl.F90

Timestamp:

2019-12-16T12:24:46+01:00 (4 years ago)

Author:

acc

Message:

Branch dev_r11943_MERGE_2019. Minor changes to MY_SRC files in STATION_ASF to initialise sn_cfctl correctly and restore decorum

File:

• NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC/stpctl.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC/stpctl.F90

@@ -118 +118 @@
          &  ISNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN   ! NaN encounter in the tests
 
-         !! We are 1D so no need to find a spatial location of the fuck-up!
+         !! We are 1D so no need to find a spatial location of the rogue point.
 
          WRITE(ctmp1,*) ' stp_ctl: |tau_mod| > 5 N/m2  or  |qns| > 2000 W/m2  or |emp| > 1.E-3 or  NaN encounter in the tests'