Changeset 11953

Timestamp:

2019-11-22T17:09:26+01:00 (5 years ago)

Author:

dcarneir

Message:

Compilation errors fixed in asminc.F90 and diaobs.F90

Location:

branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/asminc.F90 (modified) (1 diff)
• OBS/diaobs.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -1195 +1195 @@
 !#endif
 
+      ENDIF
 
    END SUBROUTINE sit_asm_inc

branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -1385 +1385 @@
 
             CASE('sit')
-              IF ( kstp == 0 ) THEN
-                 IF ( lwp .AND. surfdataqc(jtype)%nsstpmpp(1) > 0 ) THEN
-                    CALL ctl_warn( 'Sea-ice not initialised on zeroth '// &
-                       &           'time-step but some obs are valid then.' )
-                    WRITE(numout,*)surfdataqc(jtype)%nsstpmpp(1), &
-                       &           ' sea-ice thickness obs will be missed and QC flag set to 4'
-                 ENDIF                                 
-              ELSE       
+               IF ( kstp == 0 ) THEN
+                  IF ( lwp .AND. surfdataqc(jtype)%nsstpmpp(1) > 0 ) THEN
+                     CALL ctl_warn( 'Sea-ice not initialised on zeroth '// &
+                        &           'time-step but some obs are valid then.' )
+                     WRITE(numout,*)surfdataqc(jtype)%nsstpmpp(1), &
+                        &           ' sea-ice thickness obs will be missed and QC flag set to 4'
+                  ENDIF                                 
+               ELSE       
 #if defined key_cice
-                 zsurfvar(:,:) = thick_i(:,:)
+                  zsurfvar(:,:) = thick_i(:,:)
 #elif defined key_lim2 || defined key_lim3
-                 CALL ctl_stop( ' No sea-ice thickness observation operator defined for LIM model' )
-#else
-                 CALL ctl_stop( ' Trying to run sea-ice thickness observation operator', &
-                  &           ' but no sea-ice model appears to have been defined' )
-#endif
+                  CALL ctl_stop( ' No sea-ice thickness observation operator defined for LIM model' )
+#else
+                  CALL ctl_stop( ' Trying to run sea-ice thickness observation operator', &
+                     &           ' but no sea-ice model appears to have been defined' )
+#endif
+               ENDIF
 
             CASE('slchltot')