Changeset 4583 for branches/2012

Timestamp:

2014-03-26T10:35:32+01:00 (10 years ago)

Author:

pabouttier

Message:

Added global adjoint test in cla_tam module, see Ticket #1277

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/LBC/cla_tam.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/LBC/cla_tam.F90

@@ -2139 +2139 @@
    END SUBROUTINE cla_dynspg_adj_tst
 
+   SUBROUTINE cla_adj_tst( kumadt )
+      !!-----------------------------------------------------------------------
+      !!
+      !!                  ***  ROUTINE cla_adj_tst ***
+      !!
+      !! ** Purpose : Test the adjoint routine.
+      !!
+      !! ** Method  : call the test routines of all the cla_ routines
+      !!
+      !!
+      !! History :
+      !!        ! 08-08 (A. Vidard)
+      !!-----------------------------------------------------------------------
+      !! * Modules used
+
+      !! * Arguments
+      INTEGER, INTENT(IN) :: &
+         & kumadt             ! Output unit
+
+      CALL cla_div_adj_tst( kumadt )
+
+      CALL cla_traadv_adj_tst( kumadt )
+      
+      CALL cla_dynspg_adj_tst( kumadt )
+
+   END SUBROUTINE cla_adj_tst
+
 #else
    !!----------------------------------------------------------------------
@@ -2146 +2173 @@
 CONTAINS
    SUBROUTINE cla_init_tam
-      CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2 with 31 levels' )
+      CALL ctl_stop( 'cla_init_tam: Cross Land Advection hard coded for ORCA_R2 with 31 levels' )
    END SUBROUTINE cla_init_tam
    SUBROUTINE cla_div_tan( kt )
-      WRITE(*,*) 'cla_div: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_div_tan: You should have not see this print! error?', kt
    END SUBROUTINE cla_div_tan
    SUBROUTINE cla_traadv_tan( kt )
-      WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_traadv_tan: You should have not see this print! error?', kt
    END SUBROUTINE cla_traadv_tan
    SUBROUTINE cla_dynspg_tan( kt )
-      WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_dynspg_tan: You should have not see this print! error?', kt
    END SUBROUTINE cla_dynspg_tan
    SUBROUTINE cla_div_adj( kt )
-      WRITE(*,*) 'cla_div: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_div_adj: You should have not see this print! error?', kt
    END SUBROUTINE cla_div_adj
    SUBROUTINE cla_traadv_adj( kt )
-      WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_traadv_adj: You should have not see this print! error?', kt
    END SUBROUTINE cla_traadv_adj
    SUBROUTINE cla_dynspg_adj( kt )
-      WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_dynspg_adj: You should have not see this print! error?', kt
    END SUBROUTINE cla_dynspg_adj
    SUBROUTINE cla_div_adj_tst( kt )
-      WRITE(*,*) 'cla_div: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_div_adj_tst: You should have not see this print! error?', kt
    END SUBROUTINE cla_div_adj_tst
    SUBROUTINE cla_traadv_adj_tst( kt )
-      WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_traadv_adj_tst: You should have not see this print! error?', kt
    END SUBROUTINE cla_traadv_adj_tst
    SUBROUTINE cla_dynspg_adj_tst( kt )
-      WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt
+      WRITE(*,*) 'cla_dynspg_adj_tst: You should have not see this print! error?', kt
    END SUBROUTINE cla_dynspg_adj_tst
+   SUBROUTINE cla_adj_tst ( kt )
+      WRITE(*,*) 'cla_adj_tst: You should have not see this print! error?', kt
+   END SUBROUTINE cla_adj_tst
 #endif
 #endif